-- card: 3089 from stack: in.Genie
-- bmap block id: 2236
-- flags: 0000
-- background id: 2646
-- name: Sounds
----- HyperTalk script -----
on openCard
  hide menubar
end openCard


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=27 top=38 right=156 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual dissolve slowly
  go home
end mouseUp



-- part 2 (field)
-- low flags: 01
-- high flags: 0007
-- rect: left=309 top=66 right=284 bottom=458
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: List
----- HyperTalk script -----
on mouseUp
  global level
  put the optionkey into keystate
  if the selection is empty then
    set lockText of the target to false -- unlock to enable text editing
    repeat two times
      click at the clickLoc -- double click where the user clicked
    end repeat
    put the selection into holder
  end if
  play holder
  click at 0,0 --disable selection
  set lockText of the target to true
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=309 top=291 right=307 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  set lockscreen to true
  put "Sorting--Please be patient--" into message box
  put number of lines in card field list into numlines
  put 1 into liney
  repeat until liney >= numlines
    put line liney of card field list into b
    put liney + 1 into linex
    repeat until linex > numlines
      put line linex of card field list into a
      if a < b then
        put b into line linex of card field list
        put a into line liney of card field list
        put a into b
      end if
      put (linex + 1) into linex
    end repeat
    put (liney + 1) into liney
  end repeat
  set lockscreen to false
  put "" into message box
  hide message box
end mouseUp




-- part 6 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=355 top=291 right=307 bottom=403
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PlayAll
----- HyperTalk script -----
on mouseUp
  put number of lines in card field 1 into lineNum
  put 1 into zz
  repeat until zz>lineNum
    get line zz in card field 1
    play it
    put zz + 1 into zz
  end repeat
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=402 top=291 right=307 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  go to next card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=309 top=312 right=329 bottom=457
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: AddName
----- HyperTalk script -----
on mouseUp
  ask "What name?"
  put it into line (number of lines in card field list) + 1 of card field "list"
end mouseUp



-- part contents for card part 2
----- text -----
Boing
BrokenGlass
Buzzer
Cow
Cricket
DoorClose
DoorOpen
GateClosing
GunShot
Harpsichord
Knock
Owl
Rifle